home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / chrtree.arc / TREE3.BAS < prev   
Encoding:
BASIC Source File  |  1985-12-18  |  14.3 KB  |  292 lines
  1. 5 CLEAR ,,8192 :DEFINT A-Z :PLAY "MB" :GOSUB 19900
  2. 1090 READ S,O :IF S=32767 THEN GOTO 4990
  3. 1100 READ N,D :IF N=-1 THEN GOSUB 22320 :GOTO 1090
  4. 1110 IF MUS.ON THEN SOUND F!(N+O),D :SOUND 32767,S
  5. 1115 '*** SNOW ***                                                                   '
  6. 1117 GET (280,31)-(309,99),S
  7. 1119 PUT (280,31),S,XOR
  8. 1120 PUT (280,31),S,XOR
  9. 1122 PUT (280,31),S,XOR
  10. 1124 PUT (280,32),S,XOR
  11. 1125 PSET (RND*27+280,31),3
  12. 1126 '*** MOVE FIRE ***                                                              '
  13. 1127 FIRE=FIRE+1 :IF FIRE>4 THEN FIRE=1
  14. 1128 ON FIRE GOTO 1129,1130,1131,1132
  15. 1129 PUT(22,100),FIRE1,PSET :GOTO 1135
  16. 1130 PUT(26,100),FIRE2,PSET :GOTO 1135
  17. 1131 PUT(26,100),FIRE1,PSET :GOTO 1135
  18. 1132 PUT(22,100),FIRE2,PSET
  19. 1135 EVENT=EVENT+1 :IF EVENT>MAXEVENT THEN EVENT=1'*** SELECT EVENT ***
  20. 1140 ON EVENT GOTO 1900,1400,1500,1900,1300,1400,1900,1900
  21. 1300 '*** MOVE STAR AND BIRDS ***                                                    '
  22. 1302 STAR=1-STAR :IF STAR THEN PUT(188,0),STAR1,PSET :PUT(276,17),BIRD1,PSET         ELSE PUT(188,0),STAR2,PSET :PUT(276,17),BIRD2,PSET
  23. 1304 GOTO 1100
  24. 1400 '*** MOVE CLOCK ***                                                             '
  25. 1401 IF MUS.ON=0 THEN MOTOR
  26. 1402 CLOCK=CLOCK+1 :IF CLOCK>4 THEN CLOCK=1
  27. 1405 ON CLOCK GOTO 1410,1415,1420,1425
  28. 1410 PUT(104,88),CLOCK1,PSET :GOTO 1100
  29. 1415 PUT(104,88),CLOCK2,PSET :GOTO 1100
  30. 1420 PUT(104,88),CLOCK3,PSET :GOTO 1100
  31. 1425 PUT(104,88),CLOCK2,PSET :GOTO 1100
  32. 1500 '*** PAINT CANDLES ***                                                          '
  33. 1502 PAINT(19,41),CANDLE,0
  34. 1504 CANDLE=-((CANDLE=2)*3+(CANDLE=3)*2)
  35. 1506 PAINT(53,41),CANDLE,0
  36. 1508 GOTO 1100
  37. 1900 '*** BLINK LIGHTS ***
  38. 1901 LIT=1-LIT :IF LIT THEN GOTO 1910
  39. 1902 L=L+1 :IF L>30 THEN L=0
  40. 1905 CIRCLE(LX(L),LY(L)),2,1 :PSET(LX(L),LY(L)),1 :GOTO 1100
  41. 1910 CIRCLE(LX(L),LY(L)),2,0 :PSET(LX(L),LY(L)),RND*4 :GOTO 1100
  42. 4990 IF MUS.ON THEN GOSUB 22110 :GOSUB 22110 :MUS.ON=0
  43. 4992 RESTORE 5000 :GOTO 1090
  44. 5000 DATA 1,12 :'O TANNENBAUM                                                                   '
  45. 5001 DATA 39,8,44,6,44,2,44,8,46,8,48,6,48,2,48,12,48,4
  46. 5002 DATA 46,4,48,4,49,8,43,8,46,8,44,12
  47. 5003 DATA 39,8,44,6,44,2,44,8,46,8,48,6,48,2,48,12,48,4
  48. 5004 DATA 46,4,48,4,49,8,43,8,46,8,44,12
  49. 5005 DATA -12,4,51,4,51,4,48,4,53,10,51,4,51,4,49,4,49,10,49,4
  50. 5006 DATA 49,4,46,4,51,10,49,4,49,4,48,4,48,8,39,8
  51. 5007 DATA 44,6,44,2,44,8,46,8,48,6,48,2,48,12
  52. 5008 DATA 48,4,46,4,48,4,49,8,43,8,46,8,44,16
  53. 5009 DATA -12,14,-1,-1
  54. 5010 DATA 1,12 :'HARK THE HAROLD ANGELS SING                                                    '
  55. 5011 DATA 40,4,45,4,45,5,44,2,45,4,49,4,49,4,47,4
  56. 5012 DATA 52,4,52,4,52,5,50,2,49,4,47,4,49,8
  57. 5013 DATA 40,4,45,4,45,5,44,2,45,4,49,4,49,4,47,4
  58. 5014 DATA 52,4,47,4,47,4,44,4,44,4,42,4,40,8
  59. 5015 DATA 52,4,52,4,52,4,45,4,50,4,49,4,49,4,47,4
  60. 5016 DATA 52,4,52,4,52,4,45,4,50,4,49,4,49,4,47,4
  61. 5017 DATA 54,4,54,4,54,4,52,4,50,4,49,4,50,8
  62. 5018 DATA 47,4,49,1,50,1,52,5,45,2,45,4,47,4,49,9
  63. 5019 DATA 54,4,54,4,54,4,52,4,50,4,49,4,50,8
  64. 5020 DATA 47,4,49,1,50,1,52,5,45,2,45,4,47,4,45,10
  65. 5021 DATA -12,14,-1,-1
  66. 5022 DATA 1,12 :'DECK THE HALLS                                                                 '
  67. 5023 DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  68. 5024 DATA 47,2,49,2,50,2,47,2,49,5,47,2,45,4,44,4,45,10
  69. 5025 DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  70. 5026 DATA 47,2,49,2,50,2,47,2,49,5,47,2,45,4,44,4,45,10
  71. 5027 DATA 47,5,49,2,50,4,47,4,49,5,50,2,52,4,47,4
  72. 5028 DATA 49,2,51,2,52,4,54,2,56,2,57,4,56,4,54,4,52,10
  73. 5029 DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  74. 5030 DATA 54,2,54,2,54,2,54,2,52,5,50,2,49,4,47,4,45,10
  75. 5039 DATA -12,14,-1,-1
  76. 5040 DATA 1,-24 :'UP ON THE HOUSE-TOP                                                            '
  77. 5041 DATA 52,4,52,2,54,2,52,4,49,2,47,2,45,4,49,4,52,8
  78. 5042 DATA 54,4,54,4,52,4,49,4,47,4,52,4,52,8
  79. 5043 DATA 52,4,52,2,54,2,52,4,49,2,47,2,45,4,49,4,52,8
  80. 5044 DATA 54,4,54,2,54,2,52,2,52,2,49,4,47,4,52,4,45,8
  81. 5045 DATA 50,4,50,4,54,8,52,4,52,2,52,2,49,8
  82. 5046 DATA 47,4,50,4,50,8,49,4,52,2,52,2,45,4,49,4
  83. 5047 DATA 52,4,52,2,54,2,52,4,49,4,50,4,52,4,54,8
  84. 5048 DATA 52,4,52,2,54,2,52,2,52,2,49,4,47,4,52,4,45,10
  85. 5049 DATA 24,14,-1,-1
  86. 5050 DATA 1,-12 :'IT CAME UPON THE MIDNIGHT CLEAR                                                '
  87. 5051 DATA 47,4,56,8,54,4,54,4,52,4,49,4,47,8,49,4,47,8
  88. 5052 DATA 47,4,49,4,51,4,52,4,52,4,54,4,56,4,54,20
  89. 5053 DATA 47,4,56,8,51,4,54,4,52,4,49,4,47,8,49,4,47,8
  90. 5054 DATA 47,4,49,8,49,4,51,4,49,4,47,4,52,20
  91. 5055 DATA 56,4,56,8,44,4,44,4,46,4,48,4,49,8,51,4,52,8
  92. 5056 DATA 56,4,54,4,52,4,51,4,49,4,51,4,49,4,47,20
  93. 5057 DATA 47,4,56,8,51,4,54,4,52,4,49,4,47,8,49,4,47,8
  94. 5058 DATA 47,4,49,8,49,4,51,4,49,4,47,4,52,20
  95. 5059 DATA 12,14,-1,-1
  96. 5060 DATA 1,0 :'AWAY IN A MANGER (JACK NELSON)                                                 '
  97. 5061 DATA 40,4,45,4,45,4,49,2,47,2,45,4,45,4,40,4,42,4,45,4,42,4,40,8
  98. 5062 DATA 40,4,45,4,45,4,47,4,49,4,49,4,52,4,52,4,49,4,45,4,47,8
  99. 5063 DATA 40,4,45,4,45,4,49,2,47,2,45,4,45,4,40,4,42,4,50,4,42,4,40,8
  100. 5064 DATA 40,4,45,4,45,4,47,4,49,4,52,4,50,4,49,4,40,4,44,4,45,8
  101. 5065 DATA 44,2,45,2,47,4,47,4,52,4,47,4,47,4,44,4,47,4,45,4,42,4,40,8
  102. 5066 DATA 44,2,45,2,47,4,47,4,52,4,47,4,47,4,44,4
  103. 5067 DATA 45,2,44,2,45,2,47,2,49,2,51,2,52,8
  104. 5068 DATA 54,4,52,4,49,4,49,2,47,2,45,4,45,4,40,4,42,4,50,4,42,4,40,8
  105. 5069 DATA 40,4,45,4,45,4,47,4,49,4,52,4,50,4,49,4,40,4,44,4,45,8
  106. 5070 DATA 0,14,-1,-1
  107. 5071 DATA 1,0 :'WHAT CHILD IS THIS?                                                            '
  108. 5072 DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  109. 5073 DATA 46,4,42,5,44,2,46,4,47,8,44,4,44,5,43,2,44,4,46,12,39,8
  110. 5074 DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  111. 5075 DATA 46,4,42,5,44,2,46,4,47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,12
  112. 5076 DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4,47,8
  113. 5077 DATA 44,4,44,5,43,2,44,4,46,8,43,4,39,12
  114. 5078 DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4
  115. 5079 DATA 47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,8
  116. 5080 DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  117. 5081 DATA 46,4,42,5,44,2,46,4,47,8,44,4,44,5,43,2,44,4,46,12,39,8
  118. 5082 DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  119. 5083 DATA 46,4,42,5,44,2,46,4,47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,12
  120. 5084 DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4,47,8
  121. 5085 DATA 44,4,44,5,43,2,44,4,46,8,43,4,39,12
  122. 5086 DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4
  123. 5087 DATA 47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,8
  124. 5088 DATA 0,14,-1,-1
  125. 5089 DATA 1,-12 :'JINGLE BELLS                                                                   '
  126. 5090 DATA 40,4,40,4,49,4,47,4,45,4,40,12,40,2,40,2,40,4,49,4,47,4,45,4,42,12
  127. 5091 DATA 42,4,42,4,50,4,49,4,47,4,44,12,44,4,52,4,52,4,50,4,47,4,49,12
  128. 5092 DATA 40,4,40,4,49,4,47,4,45,4,40,12,40,2,40,2,40,4,49,4,47,4,45,4,42,12
  129. 5093 DATA 42,4,42,4,50,4,49,4,47,4,52,4,52,4,52,4,52,4,54,4,52,4,50,4,47,4,45,16
  130. 5094 DATA 49,4,49,4,49,8,49,4,49,4,49,8,49,4,52,4,45,4,47,4,49,16
  131. 5095 DATA 50,4,50,4,50,4,50,4,50,4,49,4,49,4,49,2,49,2,49,4,47,4,47,4
  132. 5096 DATA 49,4,47,8,52,8
  133. 5097 DATA 49,4,49,4,49,8,49,4,49,4,49,8,49,4,52,4,45,4,47,4,49,16
  134. 5098 DATA 50,4,50,4,50,4,50,4,50,4,49,4,49,4,49,2,49,2,52,4,52,4,50,4,47,4,45,12
  135. 5108 DATA 12,14,-1,-1
  136. 5109 DATA 1,0:'O LITTLE TOWN OF BETHLEHEM                                                     '
  137. 5110 DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  138. 5111 DATA 47,4,45,4,44,2,45,2,47,4,40,4,49,12
  139. 5112 DATA 49,4,49,4,49,4,54,4,52,4,52,4,50,4,42,4
  140. 5113 DATA 47,4,45,4,44,2,45,2,49,4,47,4,45,12
  141. 5114 DATA 49,4,49,4,49,4,47,4,45,4,44,8,44,4,44,4,42,4,44,4,45,4,47,4,49,12
  142. 5115 DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  143. 5116 DATA 54,4,52,4,45,4,49,4,47,4,45,12
  144. 5117 DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  145. 5118 DATA 47,4,45,4,44,2,45,2,47,4,40,4,49,12
  146. 5119 DATA 49,4,49,4,49,4,54,4,52,4,52,4,50,4,42,4
  147. 5120 DATA 47,4,45,4,44,2,45,2,49,4,47,4,45,12
  148. 5121 DATA 49,4,49,4,49,4,47,4,45,4,44,8,44,4,44,4,42,4,44,4,45,4,47,4,49,12
  149. 5122 DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  150. 5123 DATA 54,4,52,4,45,4,49,4,47,4,45,12
  151. 5124 DATA 49,4,49,4,49,4,47,4,45,4,44,8
  152. 5125 DATA 44,4,44,4,42,4,44,4,45,4,47,4,49,12
  153. 5126 DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  154. 5127 DATA 54,4,52,4,45,4,49,4,47,4,45,8
  155. 5128 DATA 0,14,-1,-1
  156. 5129 DATA 1,0:'AWAY IN A MANGER (TRADITIONAL)
  157. 5130 DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  158. 5131 DATA 40,4,40,5,42,2,40,4,40,4,47,4,44,4,42,4,40,4,45,4,49,8
  159. 5132 DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  160. 5133 DATA 40,4,50,5,49,2,47,4,49,4,47,4,45,4,47,4,42,4,44,4,45,12
  161. 5134 DATA 42,4,45,4,50,4,40,4,45,4,49,4,40,4,44,4,47,4,49,12
  162. 5135 DATA 42,4,45,4,50,4,40,4,45,4,49,4,40,4,44,4,47,4,45,8
  163. 5136 DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  164. 5137 DATA 40,4,40,5,42,2,40,4,40,4,47,4,44,4,42,4,40,4,45,4,49,8
  165. 5138 DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  166. 5139 DATA 40,4,50,5,49,2,47,4,49,4,47,4,45,4,47,4,42,4,44,4,45,12
  167. 5140 DATA 0,14,-1,-1
  168. 5150 DATA 1,0 :'GOD REST YE MERRY GENTLEMEN
  169. 5151 DATA 42,4,42,4,49,4,49,4,47,4,45,4,44,4,42,4,40,4
  170. 5152 DATA 42,4,44,4,45,4,47,4,49,12
  171. 5153 DATA 42,4,42,4,49,4,49,4,47,4,45,4,44,4,42,4,40,4
  172. 5154 DATA 42,4,44,4,45,4,47,4,49,12
  173. 5155 DATA 49,4,50,4,47,4,49,4,50,4,52,4,54,4,49,4,47,4
  174. 5156 DATA 45,4,42,4,44,4,45,4,47,8,45,4,47,4,49,8
  175. 5157 DATA 50,4,49,4,49,4,47,4,45,4,44,4,42,8
  176. 5158 DATA 45,2,44,2,42,4,47,8
  177. 5159 DATA 45,4,47,4,49,4,50,4,52,4,54,4
  178. 5160 DATA 49,4,47,4,45,4,44,4,42,10
  179. 5161 DATA 0,14,-1,-1
  180. 5170 DATA 1,0 :'SILENT NIGHT
  181. 5171 DATA 47,11,49,4,47,8,44,24,47,11,49,4,47,8,44,24
  182. 5172 DATA 54,16,54,8,51,24,52,16,52,8,47,24
  183. 5173 DATA 49,16,49,8,52,11,51,4,49,8,47,11,49,4,47,8,44,24
  184. 5174 DATA 49,16,49,8,52,11,51,4,49,8,47,11,49,4,47,8,44,24
  185. 5175 DATA 54,16,54,8,57,11,54,4,51,8,52,24,56,24
  186. 5176 DATA 52,8,47,8,44,8,47,8,45,8,42,8,40,24
  187. 5177 DATA 0,14,-1,-1
  188. 5999 DATA 32767,32767
  189. 19900 '*** INIT PROGRAM ***
  190. 19910 X=0 :L=0 :MUS.ON=1 :EVENT=0 :MAXEVENT=8 :N=0 :D=0 :O=0 :S=0 :CLOCK=3           :CANDLE=2 :FIRE=1 :X1=0 :LIT=0 :STAR=0 :HAND=11
  191. 19920 DIM S(278),F!(88),FIRE1(48),FIRE2(48),STAR1(38),STAR2(38),                       CLOCK1(37),CLOCK2(37),CLOCK3(37),LX(30),LY(30),BIRD1(47),BIRD2(47),             HX(11),HY(11)
  192. 19924 KEY(9) ON :ON KEY(9) GOSUB 30050
  193. 19925 KEY(10) ON :ON KEY(10) GOSUB 30000
  194. 19930 '*** INIT MUSICAL NOTES ***
  195. 19940 FOR X=0 TO 6 :F!(X)=32767 :NEXT X
  196. 19950 FOR X=7 TO 88 :F!(X)=36.8*(2^(1/12))^(X-6) :NEXT X
  197. 19960 GOSUB 23000 '*** INIT TREE LIGHTS ***
  198. 19970 GOSUB 21000 '*** INIT STAR ***
  199. 19972 GOSUB 21200 '*** INIT BIRDS ***
  200. 19980 GOSUB 20000 '*** INIT FIRE ***
  201. 19982 GOSUB 22300 :GOSUB 22320 '*** INIT CLOCK HANDS ***
  202. 19990 GOSUB 22000 '*** INIT CLOCK ***
  203. 19992 GOSUB 22100 '*** START CLOCK ***
  204. 19994 RESTORE 5000 :RETURN' TO  M A I N                                               '
  205. 20000 LINE(22,112)-(26,104),2 '*** INIT FIRE ***
  206. 20010 LINE-(30,110),2 :LINE-(33,100),2
  207. 20020 LINE-(40,103),2 :LINE-(41,110),2
  208. 20030 LINE-(44,102),2 :LINE-(46,112),2
  209. 20040 LINE-(22,112),2
  210. 20050 PAINT(24,110),3,2
  211. 20060 FOR X=1 TO 12 :PSET(RND*28+22,RND*6+100),2 :NEXT X
  212. 20070 GET(22,100)-(48,112),FIRE1
  213. 20080 PUT(22,100),FIRE1,XOR
  214. 20090 LINE(46,112)-(42,104),3
  215. 20100 LINE-(38,110),3 :LINE-(35,100),3
  216. 20110 LINE-(28,103),3 :LINE-(27,110),3
  217. 20120 LINE-(24,102),3 :LINE-(22,112),3
  218. 20130 LINE-(46,112),3
  219. 20140 PAINT(24,110),2,3
  220. 20150 FOR X=1 TO 12 :PSET(RND*28+22,RND*6+100),3 :NEXT X
  221. 20160 GET (22,100)-(48,112),FIRE2                                                     '
  222. 20170 RETURN
  223. 21000 '*** INIT STAR ***
  224. 21010 X=2 :GOSUB 21100
  225. 21020 PAINT(200,4),3,2
  226. 21030 PSET(193,1),3 :PSET(207,1),3
  227. 21040 PSET(191,8),3 :PSET(209,8),3
  228. 21050 GET(188,0)-(210,11),STAR1 :PUT(188,0),STAR1,XOR
  229. 21060 X=3 :GOSUB 21100
  230. 21070 PAINT(200,4),2,3
  231. 21080 PSET(192,0),2 :PSET(208,0),2
  232. 21090 PSET(190,9),2 :PSET(210,9),2
  233. 21095 GET(188,0)-(210,11),STAR2 :RETURN
  234. 21100 LINE(200,0)-(204,4),X
  235. 21110 LINE-(210,4),X :LINE-(205,7),X
  236. 21120 LINE-(208,11),X :LINE-(200,8),X
  237. 21130 LINE-(192,11),X :LINE-(195,7),X
  238. 21140 LINE-(190,4),X :LINE-(196,4),X
  239. 21150 LINE-(200,0),X
  240. 21160 LINE(201,0)-(205,4),X
  241. 21170 LINE(199,0)-(195,4),X
  242. 21180 RETURN
  243. 21200 '*** INIT BIRDS ***
  244. 21210 GET(276,17)-(312,25),BIRD1
  245. 21220 LINE(293,20)-(297,20),0 :LINE(279,21)-(282,23),0 :LINE(311,21)-(308,23),0
  246. 21222 LINE(278,25)-(282,23),2 :LINE(308,23)-(312,25),2
  247. 21224 LINE(294,17)-(292,19),2 :LINE(296,17)-(298,19),2
  248. 21226 GET(276,17)-(312,25),BIRD2
  249. 21230 RETURN
  250. 22000 '*** INIT CLOCK ***
  251. 22010 GET(104,88)-(121,101),CLOCK2 :LINE(114,96)-(114,88),0
  252. 22020 PAINT(114,99),0,2 :CIRCLE(114,99),2,0
  253. 22030 LINE(110,95)-(114,88),3 :CIRCLE(109,98),2,2 :PAINT(109,98),3,2
  254. 22040 GET(104,88)-(121,101),CLOCK1
  255. 22050 LINE(110,95)-(114,88),0 :PAINT(109,98),0,2 :CIRCLE(109,98),2,0
  256. 22060 LINE(118,95)-(114,88),3 :CIRCLE(119,98),2,2 :PAINT(119,98),3,2
  257. 22070 GET(104,88)-(121,101),CLOCK3
  258. 22080 RETURN
  259. 22100 '*** TICK CLOCK ***
  260. 22110 FOR X=1 TO 8
  261. 22130 MOTOR :FOR X1=1 TO 800 :NEXT X1
  262. 22140 CLOCK=CLOCK+1 :IF CLOCK>4 THEN CLOCK=1
  263. 22150 ON CLOCK GOTO 22160,22170,22180,22190
  264. 22160 PUT(104,88),CLOCK1,PSET :GOTO 22200
  265. 22170 PUT(104,88),CLOCK2,PSET :GOTO 22200
  266. 22180 PUT(104,88),CLOCK3,PSET :GOTO 22200
  267. 22190 PUT(104,88),CLOCK2,PSET
  268. 22200 NEXT X :RETURN
  269. 22300 '*** INIT CLOCK HANDS ***
  270. 22310 RESTORE 22312
  271. 22312 DATA 114,40,119,42,122,44,124,48,122,52,119,54,114,56
  272. 22313 DATA 109,54,106,52,104,48,106,44,109,42
  273. 22314 FOR X=0 TO 11 :READ HX(X),HY(X) :NEXT X
  274. 22318 RETURN
  275. 22320 LINE(114,48)-(HX(HAND),HY(HAND)),0'*** REDRAW HANDS ***
  276. 22322 HAND=HAND+1 :IF HAND>11 THEN HAND=0
  277. 22324 LINE(114,48)-(HX(HAND),HY(HAND)),2
  278. 22328 RETURN
  279. 23000 '*** INIT TREE LIGHTS ***
  280. 23010 RESTORE 23020
  281. 23020 DATA 219,91,188,27,205,21,214,44,193,54,210,61,243,64,164,62
  282. 23022 DATA 146,78,168,88,189,88,201,100,237,89,270,99,275,114,257,122
  283. 23024 DATA 241,111,217,120,189,126,174,114,141,97,118,124,146,121
  284. 23026 DATA 172,131,209,139,244,134,244,75,185,39,171,46,224,40,185,66
  285. 23050 FOR X=0 TO 30 :READ LX(X),LY(X) :CIRCLE(LX(X),LY(X)),1,RND*2+2                  :CIRCLE(LX(X),LY(X)),2,0 :PSET(LX(X),LY(X)),RND*2+2 :NEXT X :RETURN
  286. 30000 '*** TOGGLE MUSIC ON/OFF ***
  287. 30010 MUS.ON=1-MUS.ON
  288. 30020 IF MUS.ON THEN LINE(114,48)-(HX(HAND),HY(HAND)),0 :HAND=11                      :GOSUB 22320 :GOSUB 22100 :RESTORE 5000 :RETURN 1090
  289. 30030 RESTORE :RETURN 1100
  290. 30050 CLS :SYSTEM
  291. 32770   '       PROGRAM NAME:   TREE3.BAS                                               '       WRITTEN BY:     GREGORY HORNE                                           '       EDIT DATE:      29-NOV-1983
  292.